/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / easymenu.elc.z / easymenu.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 70 73 69 |piled by| rms@psi|
|00000020| 6c 6f 63 69 6e 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |locin.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 54 68 75 20 4a 75 6e 20 |.edu on |Thu Jun |
|00000040| 31 33 20 31 36 3a 34 35 | 3a 35 38 20 31 39 39 36 |13 16:45|:58 1996|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 68 6f 6d 65 2f 66 73 66 | 2f 72 6d 73 2f 65 31 39 |home/fsf|/rms/e19|
|00000070| 2f 6c 69 73 70 2f 65 61 | 73 79 6d 65 6e 75 2e 65 |/lisp/ea|symenu.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 33 | 31 2e 32 2e 0a 3b 3b 3b |ion 19.3|1.2..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 2e 32 39 22 29 29 29 |rsion "1|9.29")))|
|00000190| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 65 61 |.    (er|ror "`ea|
|000001a0| 73 79 6d 65 6e 75 2e 65 | 6c 27 20 77 61 73 20 63 |symenu.e|l' was c|
|000001b0| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|000001c0| 73 20 31 39 2e 32 39 20 | 6f 72 20 6c 61 74 65 72 |s 19.29 |or later|
|000001d0| 22 29 29 0a 0a 0a 23 40 | 31 39 38 36 20 44 65 66 |"))...#@|1986 Def|
|000001e0| 69 6e 65 20 61 20 6d 65 | 6e 75 20 62 61 72 20 73 |ine a me|nu bar s|
|000001f0| 75 62 6d 65 6e 75 20 69 | 6e 20 6d 61 70 73 20 4d |ubmenu i|n maps M|
|00000200| 41 50 53 2c 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |APS, acc|ording t|
|00000210| 6f 20 4d 45 4e 55 2e 0a | 54 68 65 20 6d 65 6e 75 |o MENU..|The menu|
|00000220| 20 6b 65 79 6d 61 70 20 | 69 73 20 73 74 6f 72 65 | keymap |is store|
|00000230| 64 20 69 6e 20 73 79 6d | 62 6f 6c 20 53 59 4d 42 |d in sym|bol SYMB|
|00000240| 4f 4c 2c 20 62 6f 74 68 | 20 61 73 20 69 74 73 20 |OL, both| as its |
|00000250| 76 61 6c 75 65 0a 61 6e | 64 20 61 73 20 69 74 73 |value.an|d as its|
|00000260| 20 66 75 6e 63 74 69 6f | 6e 20 64 65 66 69 6e 69 | functio|n defini|
|00000270| 74 69 6f 6e 2e 20 20 20 | 44 4f 43 20 69 73 20 75 |tion.   |DOC is u|
|00000280| 73 65 64 20 61 73 20 74 | 68 65 20 64 6f 63 20 73 |sed as t|he doc s|
|00000290| 74 72 69 6e 67 20 66 6f | 72 20 53 59 4d 42 4f 4c |tring fo|r SYMBOL|
|000002a0| 2e 0a 0a 54 68 65 20 66 | 69 72 73 74 20 65 6c 65 |...The f|irst ele|
|000002b0| 6d 65 6e 74 20 6f 66 20 | 4d 45 4e 55 20 6d 75 73 |ment of |MENU mus|
|000002c0| 74 20 62 65 20 61 20 73 | 74 72 69 6e 67 2e 20 20 |t be a s|tring.  |
|000002d0| 49 74 20 69 73 20 74 68 | 65 20 6d 65 6e 75 20 62 |It is th|e menu b|
|000002e0| 61 72 20 69 74 65 6d 20 | 6e 61 6d 65 2e 0a 54 68 |ar item |name..Th|
|000002f0| 65 20 72 65 73 74 20 6f | 66 20 74 68 65 20 65 6c |e rest o|f the el|
|00000300| 65 6d 65 6e 74 73 20 61 | 72 65 20 6d 65 6e 75 20 |ements a|re menu |
|00000310| 69 74 65 6d 73 2e 0a 0a | 41 20 6d 65 6e 75 20 69 |items...|A menu i|
|00000320| 74 65 6d 20 69 73 20 75 | 73 75 61 6c 6c 79 20 61 |tem is u|sually a|
|00000330| 20 76 65 63 74 6f 72 20 | 6f 66 20 74 68 72 65 65 | vector |of three|
|00000340| 20 65 6c 65 6d 65 6e 74 | 73 3a 20 20 5b 4e 41 4d | element|s:  [NAM|
|00000350| 45 20 43 41 4c 4c 42 41 | 43 4b 20 45 4e 41 42 4c |E CALLBA|CK ENABL|
|00000360| 45 5d 0a 0a 4e 41 4d 45 | 20 69 73 20 61 20 73 74 |E]..NAME| is a st|
|00000370| 72 69 6e 67 2d 2d 74 68 | 65 20 6d 65 6e 75 20 69 |ring--th|e menu i|
|00000380| 74 65 6d 20 6e 61 6d 65 | 2e 0a 0a 43 41 4c 4c 42 |tem name|...CALLB|
|00000390| 41 43 4b 20 69 73 20 61 | 20 63 6f 6d 6d 61 6e 64 |ACK is a| command|
|000003a0| 20 74 6f 20 72 75 6e 20 | 77 68 65 6e 20 74 68 65 | to run |when the|
|000003b0| 20 69 74 65 6d 20 69 73 | 20 63 68 6f 73 65 6e 2c | item is| chosen,|
|000003c0| 0a 6f 72 20 61 20 6c 69 | 73 74 20 74 6f 20 65 76 |.or a li|st to ev|
|000003d0| 61 6c 75 61 74 65 20 77 | 68 65 6e 20 74 68 65 20 |aluate w|hen the |
|000003e0| 69 74 65 6d 20 69 73 20 | 63 68 6f 73 65 6e 2e 0a |item is |chosen..|
|000003f0| 0a 45 4e 41 42 4c 45 20 | 69 73 20 61 6e 20 65 78 |.ENABLE |is an ex|
|00000400| 70 72 65 73 73 69 6f 6e | 3b 20 74 68 65 20 69 74 |pression|; the it|
|00000410| 65 6d 20 69 73 20 65 6e | 61 62 6c 65 64 20 66 6f |em is en|abled fo|
|00000420| 72 20 73 65 6c 65 63 74 | 69 6f 6e 0a 77 68 65 6e |r select|ion.when|
|00000430| 65 76 65 72 20 74 68 69 | 73 20 65 78 70 72 65 73 |ever thi|s expres|
|00000440| 73 69 6f 6e 27 73 20 76 | 61 6c 75 65 20 69 73 20 |sion's v|alue is |
|00000450| 6e 6f 6e 2d 6e 69 6c 2e | 0a 0a 41 6c 74 65 72 6e |non-nil.|..Altern|
|00000460| 61 74 69 76 65 6c 79 2c | 20 61 20 6d 65 6e 75 20 |atively,| a menu |
|00000470| 69 74 65 6d 20 6d 61 79 | 20 68 61 76 65 20 74 68 |item may| have th|
|00000480| 65 20 66 6f 72 6d 3a 20 | 0a 0a 20 20 20 5b 20 4e |e form: |..   [ N|
|00000490| 41 4d 45 20 43 41 4c 4c | 42 41 43 4b 20 5b 20 4b |AME CALL|BACK [ K|
|000004a0| 45 59 57 4f 52 44 20 41 | 52 47 20 5d 20 2e 2e 2e |EYWORD A|RG ] ...|
|000004b0| 20 5d 0a 0a 57 68 65 72 | 65 20 4b 45 59 57 4f 52 | ]..Wher|e KEYWOR|
|000004c0| 44 20 69 73 20 6f 6e 65 | 20 6f 66 20 74 68 65 20 |D is one| of the |
|000004d0| 73 79 6d 62 6f 6c 20 64 | 65 66 69 6e 65 64 20 62 |symbol d|efined b|
|000004e0| 65 6c 6f 77 2e 0a 0a 20 | 20 20 3a 6b 65 79 73 20 |elow... |  :keys |
|000004f0| 4b 45 59 53 0a 0a 4b 45 | 59 53 20 69 73 20 61 20 |KEYS..KE|YS is a |
|00000500| 73 74 72 69 6e 67 3b 20 | 61 20 63 6f 6d 70 6c 65 |string; |a comple|
|00000510| 78 20 6b 65 79 62 6f 61 | 72 64 20 65 71 75 69 76 |x keyboa|rd equiv|
|00000520| 61 6c 65 6e 74 20 74 6f | 20 74 68 69 73 20 6d 65 |alent to| this me|
|00000530| 6e 75 20 69 74 65 6d 2e | 0a 54 68 69 73 20 69 73 |nu item.|.This is|
|00000540| 20 6e 6f 72 6d 61 6c 6c | 79 20 6e 6f 74 20 6e 65 | normall|y not ne|
|00000550| 65 64 65 64 20 62 65 63 | 61 75 73 65 20 6b 65 79 |eded bec|ause key|
|00000560| 62 6f 61 72 64 20 65 71 | 75 69 76 61 6c 65 6e 74 |board eq|uivalent|
|00000570| 73 20 61 72 65 20 75 73 | 75 61 6c 6c 79 0a 63 6f |s are us|ually.co|
|00000580| 6d 70 75 74 65 64 20 61 | 75 74 6f 6d 61 74 69 63 |mputed a|utomatic|
|00000590| 61 6c 6c 79 2e 0a 0a 20 | 20 20 3a 61 63 74 69 76 |ally... |  :activ|
|000005a0| 65 20 45 4e 41 42 4c 45 | 0a 0a 45 4e 41 42 4c 45 |e ENABLE|..ENABLE|
|000005b0| 20 69 73 20 61 6e 20 65 | 78 70 72 65 73 73 69 6f | is an e|xpressio|
|000005c0| 6e 3b 20 74 68 65 20 69 | 74 65 6d 20 69 73 20 65 |n; the i|tem is e|
|000005d0| 6e 61 62 6c 65 64 20 66 | 6f 72 20 73 65 6c 65 63 |nabled f|or selec|
|000005e0| 74 69 6f 6e 0a 77 68 65 | 6e 65 76 65 72 20 74 68 |tion.whe|never th|
|000005f0| 69 73 20 65 78 70 72 65 | 73 73 69 6f 6e 27 73 20 |is expre|ssion's |
|00000600| 76 61 6c 75 65 20 69 73 | 20 6e 6f 6e 2d 6e 69 6c |value is| non-nil|
|00000610| 2e 0a 0a 20 20 20 3a 73 | 75 66 66 69 78 20 4e 41 |...   :s|uffix NA|
|00000620| 4d 45 0a 0a 4e 41 4d 45 | 20 69 73 20 61 20 73 74 |ME..NAME| is a st|
|00000630| 72 69 6e 67 3b 20 74 68 | 65 20 6e 61 6d 65 20 6f |ring; th|e name o|
|00000640| 66 20 61 6e 20 61 72 67 | 75 6d 65 6e 74 20 74 6f |f an arg|ument to|
|00000650| 20 43 41 4c 4c 42 41 43 | 4b 2e 0a 0a 20 20 20 3a | CALLBAC|K...   :|
|00000660| 73 74 79 6c 65 20 53 54 | 59 4c 45 0a 20 20 20 0a |style ST|YLE.   .|
|00000670| 53 54 59 4c 45 20 69 73 | 20 61 20 73 79 6d 62 6f |STYLE is| a symbo|
|00000680| 6c 20 64 65 73 63 72 69 | 62 69 6e 67 20 74 68 65 |l descri|bing the|
|00000690| 20 74 79 70 65 20 6f 66 | 20 6d 65 6e 75 20 69 74 | type of| menu it|
|000006a0| 65 6d 2e 20 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |em.  The| followi|
|000006b0| 6e 67 20 61 72 65 0a 64 | 65 66 69 6e 65 64 3a 20 |ng are.d|efined: |
|000006c0| 20 0a 0a 74 6f 67 67 6c | 65 3a 20 41 20 63 68 65 | ..toggl|e: A che|
|000006d0| 63 6b 62 6f 78 2e 20 20 | 0a 20 20 20 20 20 20 20 |ckbox.  |.       |
|000006e0| 20 43 75 72 72 65 6e 74 | 6c 79 20 6a 75 73 74 20 | Current|ly just |
|000006f0| 70 72 65 70 65 6e 64 20 | 74 68 65 20 6e 61 6d 65 |prepend |the name|
|00000700| 20 77 69 74 68 20 74 68 | 65 20 73 74 72 69 6e 67 | with th|e string|
|00000710| 20 22 54 6f 67 67 6c 65 | 20 22 2e 0a 72 61 64 69 | "Toggle| "..radi|
|00000720| 6f 3a 20 41 20 72 61 64 | 69 6f 20 62 75 74 74 6f |o: A rad|io butto|
|00000730| 6e 2e 20 0a 6e 69 6c 3a | 20 41 6e 20 6f 72 64 69 |n. .nil:| An ordi|
|00000740| 6e 61 72 79 20 6d 65 6e | 75 20 69 74 65 6d 2e 0a |nary men|u item..|
|00000750| 0a 20 20 20 3a 73 65 6c | 65 63 74 65 64 20 53 45 |.   :sel|ected SE|
|00000760| 4c 45 43 54 45 44 0a 0a | 53 45 4c 45 43 54 45 44 |LECTED..|SELECTED|
|00000770| 20 69 73 20 61 6e 20 65 | 78 70 72 65 73 73 69 6f | is an e|xpressio|
|00000780| 6e 3b 20 74 68 65 20 63 | 68 65 63 6b 62 6f 78 20 |n; the c|heckbox |
|00000790| 6f 72 20 72 61 64 69 6f | 20 62 75 74 74 6f 6e 20 |or radio| button |
|000007a0| 69 73 20 73 65 6c 65 63 | 74 65 64 0a 77 68 65 6e |is selec|ted.when|
|000007b0| 65 76 65 72 20 74 68 69 | 73 20 65 78 70 72 65 73 |ever thi|s expres|
|000007c0| 73 69 6f 6e 27 73 20 76 | 61 6c 75 65 20 69 73 20 |sion's v|alue is |
|000007d0| 6e 6f 6e 2d 6e 69 6c 2e | 0a 43 75 72 72 65 6e 74 |non-nil.|.Current|
|000007e0| 6c 79 20 6a 75 73 74 20 | 64 69 73 61 62 6c 65 20 |ly just |disable |
|000007f0| 72 61 64 69 6f 20 62 75 | 74 74 6f 6e 73 2c 20 6e |radio bu|ttons, n|
|00000800| 6f 20 65 66 66 65 63 74 | 20 6f 6e 20 63 68 65 63 |o effect| on chec|
|00000810| 6b 62 6f 78 65 73 2e 0a | 0a 41 20 6d 65 6e 75 20 |kboxes..|.A menu |
|00000820| 69 74 65 6d 20 63 61 6e | 20 62 65 20 61 20 73 74 |item can| be a st|
|00000830| 72 69 6e 67 2e 20 20 54 | 68 65 6e 20 74 68 61 74 |ring.  T|hen that|
|00000840| 20 73 74 72 69 6e 67 20 | 61 70 70 65 61 72 73 20 | string |appears |
|00000850| 69 6e 20 74 68 65 20 6d | 65 6e 75 20 61 73 0a 75 |in the m|enu as.u|
|00000860| 6e 73 65 6c 65 63 74 61 | 62 6c 65 20 74 65 78 74 |nselecta|ble text|
|00000870| 2e 20 20 41 20 73 74 72 | 69 6e 67 20 63 6f 6e 73 |.  A str|ing cons|
|00000880| 69 73 74 69 6e 67 20 73 | 6f 6c 65 6c 79 20 6f 66 |isting s|olely of|
|00000890| 20 68 79 70 68 65 6e 73 | 20 69 73 20 64 69 73 70 | hyphens| is disp|
|000008a0| 6c 61 79 65 64 0a 61 73 | 20 61 20 73 6f 6c 69 64 |layed.as| a solid|
|000008b0| 20 68 6f 72 69 7a 6f 6e | 74 61 6c 20 6c 69 6e 65 | horizon|tal line|
|000008c0| 2e 0a 0a 41 20 6d 65 6e | 75 20 69 74 65 6d 20 63 |...A men|u item c|
|000008d0| 61 6e 20 62 65 20 61 20 | 6c 69 73 74 2e 20 20 49 |an be a |list.  I|
|000008e0| 74 20 69 73 20 74 72 65 | 61 74 65 64 20 61 73 20 |t is tre|ated as |
|000008f0| 61 20 73 75 62 6d 65 6e | 75 2e 0a 54 68 65 20 66 |a submen|u..The f|
|00000900| 69 72 73 74 20 65 6c 65 | 6d 65 6e 74 20 73 68 6f |irst ele|ment sho|
|00000910| 75 6c 64 20 62 65 20 74 | 68 65 20 73 75 62 6d 65 |uld be t|he subme|
|00000920| 6e 75 20 6e 61 6d 65 2e | 20 20 54 68 61 74 27 73 |nu name.|  That's|
|00000930| 20 75 73 65 64 20 61 73 | 20 74 68 65 0a 6d 65 6e | used as| the.men|
|00000940| 75 20 69 74 65 6d 20 69 | 6e 20 74 68 65 20 74 6f |u item i|n the to|
|00000950| 70 2d 6c 65 76 65 6c 20 | 6d 65 6e 75 2e 20 20 54 |p-level |menu.  T|
|00000960| 68 65 20 63 64 72 20 6f | 66 20 74 68 65 20 73 75 |he cdr o|f the su|
|00000970| 62 6d 65 6e 75 20 6c 69 | 73 74 0a 69 73 20 61 20 |bmenu li|st.is a |
|00000980| 6c 69 73 74 20 6f 66 20 | 6d 65 6e 75 20 69 74 65 |list of |menu ite|
|00000990| 6d 73 2c 20 61 73 20 61 | 62 6f 76 65 2e 1f 0a 28 |ms, as a|bove...(|
|000009a0| 64 65 66 61 6c 69 61 73 | 20 27 65 61 73 79 2d 6d |defalias| 'easy-m|
|000009b0| 65 6e 75 2d 64 65 66 69 | 6e 65 20 27 28 6d 61 63 |enu-defi|ne '(mac|
|000009c0| 72 6f 20 2e 20 23 5b 28 | 73 79 6d 62 6f 6c 20 6d |ro . #[(|symbol m|
|000009d0| 61 70 73 20 64 6f 63 20 | 6d 65 6e 75 29 20 22 c0 |aps doc |menu) ".|
|000009e0| c1 5c 6e c3 5c 66 46 c5 | c6 5c 6e 44 0e 07 5c 66 |.\n.\fF.|.\nD..\f|
|000009f0| 0e 08 af 05 45 87 22 20 | 5b 70 72 6f 67 6e 20 64 |....E." |[progn d|
|00000a00| 65 66 76 61 72 20 73 79 | 6d 62 6f 6c 20 6e 69 6c |efvar sy|mbol nil|
|00000a10| 20 64 6f 63 20 65 61 73 | 79 2d 6d 65 6e 75 2d 64 | doc eas|y-menu-d|
|00000a20| 6f 2d 64 65 66 69 6e 65 | 20 71 75 6f 74 65 20 6d |o-define| quote m|
|00000a30| 61 70 73 20 6d 65 6e 75 | 5d 20 37 20 28 23 24 20 |aps menu|] 7 (#$ |
|00000a40| 2e 20 34 37 37 29 5d 29 | 29 0a 28 64 65 66 61 6c |. 477)])|).(defal|
|00000a50| 69 61 73 20 27 65 61 73 | 79 2d 6d 65 6e 75 2d 64 |ias 'eas|y-menu-d|
|00000a60| 6f 2d 64 65 66 69 6e 65 | 20 23 5b 28 73 79 6d 62 |o-define| #[(symb|
|00000a70| 6f 6c 20 6d 61 70 73 20 | 64 6f 63 20 6d 65 6e 75 |ol maps |doc menu|
|00000a80| 29 20 22 08 c1 5c 6e 40 | 5c 6e 41 5c 22 4c 88 08 |) "..\n@|\nA\"L..|
|00000a90| c3 c4 0d c6 c7 c8 08 45 | af 05 4d 88 c9 ca cb 0e |.......E|..M.....|
|00000aa0| 5c 66 21 83 25 00 0e 5c | 66 43 82 27 00 0e 5c 66 |\f!.%..\|fC.'..\f|
|00000ab0| 5c 22 87 22 20 5b 73 79 | 6d 62 6f 6c 20 65 61 73 |\"." [sy|mbol eas|
|00000ac0| 79 2d 6d 65 6e 75 2d 63 | 72 65 61 74 65 2d 6b 65 |y-menu-c|reate-ke|
|00000ad0| 79 6d 61 70 73 20 6d 65 | 6e 75 20 6c 61 6d 62 64 |ymaps me|nu lambd|
|00000ae0| 61 20 28 65 76 65 6e 74 | 29 20 64 6f 63 20 28 69 |a (event|) doc (i|
|00000af0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 40 65 22 29 |nteracti|ve "@e")|
|00000b00| 20 65 61 73 79 2d 70 6f | 70 75 70 2d 6d 65 6e 75 | easy-po|pup-menu|
|00000b10| 20 65 76 65 6e 74 20 6d | 61 70 63 61 72 20 23 5b | event m|apcar #[|
|00000b20| 28 6d 61 70 29 20 22 c0 | 09 c2 c3 c4 0d 40 21 5c |(map) ".|.....@!\|
|00000b30| 22 0d 40 0e 06 4a 42 23 | 87 22 20 5b 64 65 66 69 |".@..JB#|." [defi|
|00000b40| 6e 65 2d 6b 65 79 20 6d | 61 70 20 76 65 63 74 6f |ne-key m|ap vecto|
|00000b50| 72 20 6d 65 6e 75 2d 62 | 61 72 20 69 6e 74 65 72 |r menu-b|ar inter|
|00000b60| 6e 20 6d 65 6e 75 20 73 | 79 6d 62 6f 6c 5d 20 36 |n menu s|ymbol] 6|
|00000b70| 5d 20 6b 65 79 6d 61 70 | 70 20 6d 61 70 73 5d 20 |] keymap|p maps] |
|00000b80| 38 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |8]).(byt|e-code "|
|00000b90| c0 c1 21 84 08 00 c2 11 | c1 0b 42 13 c0 87 22 20 |..!.....|..B..." |
|00000ba0| 5b 62 6f 75 6e 64 70 20 | 65 61 73 79 2d 6d 65 6e |[boundp |easy-men|
|00000bb0| 75 2d 69 74 65 6d 2d 63 | 6f 75 6e 74 20 30 20 63 |u-item-c|ount 0 c|
|00000bc0| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000bd0| 5d 20 32 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |] 2).(de|falias '|
|00000be0| 65 61 73 79 2d 6d 65 6e | 75 2d 63 72 65 61 74 65 |easy-men|u-create|
|00000bf0| 2d 6b 65 79 6d 61 70 73 | 20 23 5b 28 6d 65 6e 75 |-keymaps| #[(menu|
|00000c00| 2d 6e 61 6d 65 20 6d 65 | 6e 75 2d 69 74 65 6d 73 |-name me|nu-items|
|00000c10| 29 20 22 c0 09 21 1a c3 | 5c 66 21 89 14 83 9f 01 |) "..!..|\f!.....|
|00000c20| 5c 66 40 1d c6 0d 21 85 | 18 00 0d c7 48 1e 08 c9 |\f@...!.|....H...|
|00000c30| 1e 5c 6e c9 1e 0b c9 1e | 5c 66 0d 3b 83 3c 00 c9 |.\n.....|\f.;.<..|
|00000c40| 16 5c 6e cd ce 0d 5c 22 | 83 36 00 cf 82 37 00 0d |.\n...\"|.6...7..|
|00000c50| 16 5c 66 82 71 01 0d 3a | 83 50 00 d0 0d 40 0d 41 |.\f.q..:|.P...@.A|
|00000c60| 5c 22 16 5c 6e 0d 40 16 | 5c 66 82 71 01 c6 0d 21 |\".\n.@.|\f.q...!|
|00000c70| 83 71 01 d1 d2 d3 0e 14 | 5c 22 21 16 5c 6e 0e 14 |.q......|\"!.\n..|
|00000c80| 54 16 14 0d d5 48 16 5c | 66 0d d6 48 89 1e 17 39 |T....H.\|f..H...9|
|00000c90| 83 3b 01 d8 0e 17 21 d5 | 48 d9 55 83 3b 01 d6 c9 |.;....!.|H.U.;...|
|00000ca0| 89 89 89 89 1e 1a 1e 1b | 1e 1c 1e 1d 1e 1e 1e 1f |........|........|
|00000cb0| 0d 47 0e 1f 56 83 f5 00 | 0d 0e 1f 48 16 17 0d 0e |.G..V...|...H....|
|00000cc0| 1f 54 48 16 1a 0e 1f d6 | 5c 5c 16 1f 0e 17 e0 3d |.TH.....|\\.....=|
|00000cd0| 83 b9 00 0e 1a 16 1b 82 | 90 00 0e 17 e1 3d 83 c7 |........|.....=..|
|00000ce0| 00 0e 1a 16 1c 82 90 00 | 0e 17 e2 3d 83 d9 00 0e |........|...=....|
|00000cf0| 5c 66 e3 0e 1a 51 16 5c | 66 82 90 00 0e 17 e4 3d |\f...Q.\|f......=|
|00000d00| 83 e7 00 0e 1a 16 1e 82 | 90 00 0e 17 e5 3d 83 90 |........|.....=..|
|00000d10| 00 0e 1a 16 1d 82 90 00 | 0e 1b 83 03 01 0e 5c 66 |........|......\f|
|00000d20| e6 0e 1b e7 52 16 5c 66 | 0e 1e e8 3d 83 10 01 e9 |....R.\f|...=....|
|00000d30| 0e 5c 66 50 16 5c 66 0e | 1c 83 20 01 ea 0e 5c 6e |.\fP.\f.|.. ...\n|
|00000d40| eb 0e 1c 23 88 82 36 01 | 0e 1e ec 3d 83 36 01 0e |...#..6.|...=.6..|
|00000d50| 1d 83 36 01 ea 0e 5c 6e | eb ed 0e 1d 44 23 88 2e |..6...\n|....D#..|
|00000d60| 06 82 43 01 ea 0e 5c 6e | eb 0e 17 23 88 29 ee 0e |..C...\n|...#.)..|
|00000d70| 08 21 83 51 01 0e 5c 66 | ef 50 16 5c 66 0e 08 39 |.!.Q..\f|.P.\f..9|
|00000d80| 83 60 01 0e 5c 6e 0e 08 | 4d 88 82 6a 01 0e 5c 6e |.`..\n..|M..j..\n|
|00000d90| f0 c9 f1 0e 08 46 4d 88 | ea 0e 5c 6e f2 f3 23 88 |.....FM.|..\n..#.|
|00000da0| 0e 5c 6e 84 83 01 5c 6e | c9 0e 5c 66 44 5c 6e 41 |.\n...\n|..\fD\nA|
|00000db0| 42 a1 88 82 97 01 0e 5c | 66 83 97 01 f4 5c 6e f5 |B......\|f....\n.|
|00000dc0| f6 0e 5c 66 21 21 0e 5c | 66 0e 5c 6e 42 23 88 2d |..\f!!.\|f.\nB#.-|
|00000dd0| 5c 66 41 89 14 84 5c 66 | 00 5c 6e 29 87 22 20 5b |\fA...\f|.\n)." [|
|00000de0| 6d 61 6b 65 2d 73 70 61 | 72 73 65 2d 6b 65 79 6d |make-spa|rse-keym|
|00000df0| 61 70 20 6d 65 6e 75 2d | 6e 61 6d 65 20 6d 65 6e |ap menu-|name men|
|00000e00| 75 20 72 65 76 65 72 73 | 65 20 6d 65 6e 75 2d 69 |u revers|e menu-i|
|00000e10| 74 65 6d 73 20 69 74 65 | 6d 20 76 65 63 74 6f 72 |tems ite|m vector|
|00000e20| 70 20 31 20 63 61 6c 6c | 62 61 63 6b 20 6e 69 6c |p 1 call|back nil|
|00000e30| 20 63 6f 6d 6d 61 6e 64 | 20 65 6e 61 62 6c 65 72 | command| enabler|
|00000e40| 20 6e 61 6d 65 20 73 74 | 72 69 6e 67 2d 6d 61 74 | name st|ring-mat|
|00000e50| 63 68 20 22 5e 2d 2b 24 | 22 20 22 22 20 65 61 73 |ch "^-+$|" "" eas|
|00000e60| 79 2d 6d 65 6e 75 2d 63 | 72 65 61 74 65 2d 6b 65 |y-menu-c|reate-ke|
|00000e70| 79 6d 61 70 73 20 6d 61 | 6b 65 2d 73 79 6d 62 6f |ymaps ma|ke-symbo|
|00000e80| 6c 20 66 6f 72 6d 61 74 | 20 22 6d 65 6e 75 2d 66 |l format| "menu-f|
|00000e90| 75 6e 63 74 69 6f 6e 2d | 25 64 22 20 65 61 73 79 |unction-|%d" easy|
|00000ea0| 2d 6d 65 6e 75 2d 69 74 | 65 6d 2d 63 6f 75 6e 74 |-menu-it|em-count|
|00000eb0| 20 30 20 32 20 6b 65 79 | 77 6f 72 64 20 73 79 6d | 0 2 key|word sym|
|00000ec0| 62 6f 6c 2d 6e 61 6d 65 | 20 35 38 20 61 72 67 20 |bol-name| 58 arg |
|00000ed0| 6b 65 79 73 20 61 63 74 | 69 76 65 20 73 65 6c 65 |keys act|ive sele|
|00000ee0| 63 74 65 64 20 73 74 79 | 6c 65 20 63 6f 75 6e 74 |cted sty|le count|
|00000ef0| 20 3a 6b 65 79 73 20 3a | 61 63 74 69 76 65 20 3a | :keys :|active :|
|00000f00| 73 75 66 66 69 78 20 22 | 20 22 20 3a 73 74 79 6c |suffix "| " :styl|
|00000f10| 65 20 3a 73 65 6c 65 63 | 74 65 64 20 22 20 20 28 |e :selec|ted "  (|
|00000f20| 22 20 22 29 22 20 74 6f | 67 67 6c 65 20 22 54 6f |" ")" to|ggle "To|
|00000f30| 67 67 6c 65 20 22 20 70 | 75 74 20 6d 65 6e 75 2d |ggle " p|ut menu-|
|00000f40| 65 6e 61 62 6c 65 20 72 | 61 64 69 6f 20 6e 6f 74 |enable r|adio not|
|00000f50| 20 6b 65 79 6d 61 70 70 | 20 22 20 2e 2e 2e 22 20 | keymapp| " ..." |
|00000f60| 6c 61 6d 62 64 61 20 28 | 69 6e 74 65 72 61 63 74 |lambda (|interact|
|00000f70| 69 76 65 29 20 6d 65 6e | 75 2d 61 6c 69 61 73 20 |ive) men|u-alias |
|00000f80| 74 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 76 65 63 |t define|-key vec|
|00000f90| 74 6f 72 20 69 6e 74 65 | 72 6e 5d 20 37 5d 29 0a |tor inte|rn] 7]).|
|00000fa0| 23 40 33 32 36 20 43 68 | 61 6e 67 65 20 6d 65 6e |#@326 Ch|ange men|
|00000fb0| 75 20 66 6f 75 6e 64 20 | 61 74 20 50 41 54 48 20 |u found |at PATH |
|00000fc0| 61 73 20 69 74 65 6d 20 | 4e 41 4d 45 20 74 6f 20 |as item |NAME to |
|00000fd0| 63 6f 6e 74 61 69 6e 20 | 49 54 45 4d 53 2e 0a 50 |contain |ITEMS..P|
|00000fe0| 41 54 48 20 69 73 20 61 | 20 6c 69 73 74 20 6f 66 |ATH is a| list of|
|00000ff0| 20 73 74 72 69 6e 67 73 | 20 66 6f 72 20 6c 6f 63 | strings| for loc|
|00001000| 61 74 69 6e 67 20 74 68 | 65 20 6d 65 6e 75 20 63 |ating th|e menu c|
|00001010| 6f 6e 74 61 69 6e 69 6e | 67 20 4e 41 4d 45 20 69 |ontainin|g NAME i|
|00001020| 6e 20 74 68 65 0a 6d 65 | 6e 75 20 62 61 72 2e 20 |n the.me|nu bar. |
|00001030| 20 49 54 45 4d 53 20 69 | 73 20 61 20 6c 69 73 74 | ITEMS i|s a list|
|00001040| 20 6f 66 20 6d 65 6e 75 | 20 69 74 65 6d 73 2c 20 | of menu| items, |
|00001050| 61 73 20 69 6e 20 60 65 | 61 73 79 2d 6d 65 6e 75 |as in `e|asy-menu|
|00001060| 2d 64 65 66 69 6e 65 27 | 2e 0a 54 68 65 73 65 20 |-define'|..These |
|00001070| 69 74 65 6d 73 20 65 6e | 74 69 72 65 6c 79 20 72 |items en|tirely r|
|00001080| 65 70 6c 61 63 65 20 74 | 68 65 20 70 72 65 76 69 |eplace t|he previ|
|00001090| 6f 75 73 20 69 74 65 6d | 73 20 69 6e 20 74 68 61 |ous item|s in tha|
|000010a0| 74 20 6d 61 70 2e 0a 0a | 43 61 6c 6c 20 74 68 69 |t map...|Call thi|
|000010b0| 73 20 66 72 6f 6d 20 60 | 61 63 74 69 76 61 74 65 |s from `|activate|
|000010c0| 2d 6d 65 6e 75 62 61 72 | 2d 68 6f 6f 6b 27 20 74 |-menubar|-hook' t|
|000010d0| 6f 20 69 6d 70 6c 65 6d | 65 6e 74 20 64 79 6e 61 |o implem|ent dyna|
|000010e0| 6d 69 63 20 6d 65 6e 75 | 73 2e 1f 0a 28 64 65 66 |mic menu|s...(def|
|000010f0| 61 6c 69 61 73 20 27 65 | 61 73 79 2d 6d 65 6e 75 |alias 'e|asy-menu|
|00001100| 2d 63 68 61 6e 67 65 20 | 23 5b 28 70 61 74 68 20 |-change |#[(path |
|00001110| 6e 61 6d 65 20 69 74 65 | 6d 73 29 20 22 c0 c1 c2 |name ite|ms) "...|
|00001120| c3 c4 c5 c6 0e 07 0e 08 | 43 5c 22 5c 22 23 21 1e |........|C\"\"#!.|
|00001130| 09 ca 0e 09 21 83 26 00 | 0e 09 cb 0e 08 0e 5c 66 |....!.&.|......\f|
|00001140| 5c 22 41 a1 82 29 00 cd | ce 21 29 87 22 20 5b 6b |\"A..)..|.!)." [k|
|00001150| 65 79 2d 62 69 6e 64 69 | 6e 67 20 61 70 70 6c 79 |ey-bindi|ng apply|
|00001160| 20 76 65 63 74 6f 72 20 | 6d 65 6e 75 2d 62 61 72 | vector |menu-bar|
|00001170| 20 6d 61 70 63 61 72 20 | 69 6e 74 65 72 6e 20 61 | mapcar |intern a|
|00001180| 70 70 65 6e 64 20 70 61 | 74 68 20 6e 61 6d 65 20 |ppend pa|th name |
|00001190| 6d 61 70 20 6b 65 79 6d | 61 70 70 20 65 61 73 79 |map keym|app easy|
|000011a0| 2d 6d 65 6e 75 2d 63 72 | 65 61 74 65 2d 6b 65 79 |-menu-cr|eate-key|
|000011b0| 6d 61 70 73 20 69 74 65 | 6d 73 20 65 72 72 6f 72 |maps ite|ms error|
|000011c0| 20 22 4d 61 6c 66 6f 72 | 6d 65 64 20 6d 65 6e 75 | "Malfor|med menu|
|000011d0| 20 69 6e 20 60 65 61 73 | 79 2d 6d 65 6e 75 2d 63 | in `eas|y-menu-c|
|000011e0| 68 61 6e 67 65 27 22 5d | 20 39 20 28 23 24 20 2e |hange'"]| 9 (#$ .|
|000011f0| 20 34 30 30 36 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 4006)])|.(defali|
|00001200| 61 73 20 27 65 61 73 79 | 2d 6d 65 6e 75 2d 72 65 |as 'easy|-menu-re|
|00001210| 6d 6f 76 65 20 23 5b 28 | 6d 65 6e 75 29 20 22 c0 |move #[(|menu) ".|
|00001220| 87 22 20 5b 6e 69 6c 5d | 20 31 5d 29 0a 28 64 65 |." [nil]| 1]).(de|
|00001230| 66 61 6c 69 61 73 20 27 | 65 61 73 79 2d 6d 65 6e |falias '|easy-men|
|00001240| 75 2d 61 64 64 20 23 5b | 28 6d 65 6e 75 20 26 6f |u-add #[|(menu &o|
|00001250| 70 74 69 6f 6e 61 6c 20 | 6d 61 70 29 20 22 c0 87 |ptional |map) "..|
|00001260| 22 20 5b 6e 69 6c 5d 20 | 31 5d 29 0a 28 70 72 6f |" [nil] |1]).(pro|
|00001270| 76 69 64 65 20 28 71 75 | 6f 74 65 20 65 61 73 79 |vide (qu|ote easy|
|00001280| 6d 65 6e 75 29 29 0a    |                         |menu)). |        |
+--------+-------------------------+-------------------------+--------+--------+